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Overview 



The programming language FORTRAN has been 
in exigence for DO less than twenty-five years, 
almost as long as the electronic computer itself, 
and during this period it has become the lingua 
franca of the community of scientific and 
engineering computer users. The reasons for this 
include its simplicity, availability, and portability. 
Although other languages like Pascal. BASIC, anil 
A PL do many things better than FORTRAN, the 
software investment in the latter means it will 



Naturally. Swifte FORTRAN-77 source, object, 
and prog ram -generated Tiles are completely 
compatible with the host operating system 
MIRAGE; additionally, since the FORTRAN 
system uses IEEE-standard Floating Point 
Arithmetic, data con be interchanged between 
different language processors. Routines written in 
FORTRAN can be called from Swifte-Pascal and 
APL. 68000. thus allowing standard software, e.g. 
the NAG/IMSL library, to be used in several 



Now a full implementation of the latest version 
of the language, ANS1-77 FORTRAN, is available 
for use on MCoK(XX) based microcomputers 
running under MIRAGE, lite powerful multi-user 
network operating system. Swifte FORTRAN-77 
is compatible with most mainframe FORTRAN-77 
compilers and also makes special provision to 
handle programs written in FORTRAN-66. 



Swifte FORTRAN-77 is validated by the National 
Computing Centre, England, in association with 
the Federal Software Tc-iing Centre. Wellington. 
U.S.A., as being an error-free implementation of 
the Full FORTRAN language according to ANSI 
X3. 9-1978; it is thus eligible for procurement 
under the terms of reference of the CCTA and 
GSA. 



Using Swifte FORTRAN-77, time wasted 
debugging is dramatically reduced due to 
comprehensive compile-time and run-time error 
checking. When a run-time error occurs, a back- 
trace by subprogram name and statement number 
is produced, together with an English language 
error message, thus allowing bugs to be trapped 
and eliminated very quickly. 
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First and Foremost 



ANSI-77 Standard Facilities 

* INTEGER data type — 4 bytes, range 
-2147483648 to +2147483647. 

* REAL data type — 4 bytes. IEEE format. 7 
digits precision, range lOB— 33 tolOE + 3?. 

« DOUBLE PRECISION data type - 8 bytes, 
IEEE format, 16 digits precision, range 
10E-3O8 to 10E + 308. 

* CHARACTER data type - up to 32000 
elements; II concatenation operator supplied: 
user functions may return character strings. 

* PARAMETER statement - allow* named 
constants to be defined. 

* Input-Output — a powerful set of statements 
to open, close, and enquire about units and files 
is provided. 

* List-Directed Input-Output — explicit 
FORMATS may be omitted. 

* Internal Files — text lines may be written to. 
or read from, character variables instead of disc 
files. 

lower hounds can be other than unity. 

* Block IF, ELSE IF. ELSE, arid END IF - 
these statements permit more structured 
programs in he created. 

* ENTRY statement - allows multiple entry 
points lo a subroutine or function. 

* Generic Intrinsic Functions — where the 
argument Ivpe specifies which function is 
meant, e.g. LOGU) implies ALOO(x). 
DLOG(x). if t is real, double precision. 

* Alternate RETURN — exit from 
SUBROUTINES may be to places other than 
after the call. 

* IMPLICIT statement — allows the default type 
rules to be ove ridden. 

* ANSI-66 compatibility mode. 



Language Enhancements 

* Length Specification in Tvpe Statements, e.g. 
INTEGER* I, INTEGER*2 denote signed byte 
and signed word integers. 

* Double Precision Complex — COMPLEX* 16 
type with full set of operators and intrinsic 
functions. 

* Identifiers may be up to 3 1 characters long and 

contain "$" (dollar) and *' " (underscore), 

:ill character 1 . being Maui (leant. 

* Based Constants — hexadecimal, octal and 
binary, integer constants supported, e.g. 
SFF.8S377.2S I 1 I 1 I 1 I I . 

Program Development Facilities 

* Free-format source option — eases creation of 

;r-.ienini -.nurvc [CM .11 .1 VI III. 

* Source file inclusion facility — copies in 
common declarations", code. 

* Separate compilation — allows subprograms to 
be compiled independently and combined 
together later using the standard MIRAGE 

* Numerous compile -time toggles, set from either 
the command line or embedded in the source 
tiles, allow control of compiler operation, e.g. 
list Tile output or array bounds checking. 

MIRAGE Environment Support 

* Full access lo the advanced facilities of 
MIRAGE - e.g. Networking Filing System. 
Spooler. Time, and Date. 

* Interface to Assembly Language — allows 
special purpose or ultra- rast hand coded 
routines written in MC6S000 Macro Assembly 
Language 10 be accessed. 

* Callable from other languages — FORTRAN 

called from Swifte- Pascal and A PL. 68000. e.g. 
NAG library functions can be called from inside 
APL application programs. 

* Interface to GKS — an ANSI-compatible 
FORTRAN binding to the Graphics Kernel 
System Bolton is provided. 

* NAG double precision mathematical software 
library is available. 



Built-in Subroutines and Functions 



Documentation 



Type Conversion: 

INT, IFIX. 1DINT. REAL. FLOAT. SNGL. 
DREAL, DBLE, DFLOAT. CMPLX. DCMPLX 

Mii'i in ■■'Minimum: 

MAX, MAXO. AMAXI, DM AX). AMAXO. 
MAX1. MIN. MINI). AMIN1. DM1N1 . AMI.SU 
MINI 



. LBN, INDEX. LGE. LGT, 



.VI I-, 



■■ M.III 



ABS. IABS, DABS. CABS. CDABS, [MAG. 
A1MAG, DIMAG, CONJG. DCONJG. A1NT. 
DINT. ANTNT. DNINT. MNT. IDNINT, MOD. 
AMOD. DMOD, DPROD. SQRT. DSQRT, 
CSQRT, C DSQRT 
Logarithm and Exponential: 
LOG, ALOG, DLOG, CLOG, CDLOG. LOGIO. 
ALOGIO, DLOG 10, EXP. DEXP.CEXP. 
CDEXP 

Transcendenlals: 

SIN. DSIN. CSIN. CDSIN. COS. DCOS. CCOS, 
CDCOS, TAN. DTAN. ASIN. DASIN, ACOS, 
DACOS. ATAN, DATAN. ATAN2. DATAN2 
Hyperbolics: 

S1NH. DSINH. COSH. DCOSH. TANH. 
DTANH 

Mil Manipulation: 

IAND, )0R. IEOR. NOT ISHFT. BTEST. 
IBSET. 1BCI.R. ISHFTC. [CNT 

MIRAGE Interface: 

CHAIN. SPOOL. CRT, TIME. DATE. SLEEP, 
GETCML, [GBTCC, IGETCH 



Heap Storage Management: 
MEMAVS. MEMRQS, MEMRTS 



Swifte FORTRAN-77 comes complete with a 
comprehensive User's Guide and Language 
Reference Manual. The documentation may be 
purchased separately from your supplier. 



Hardware Requirements 

The Swifte FORTRAN-77 compiler requires a 
MCoHOOO-based microcomputer running the 
MIRAGE Operating System (Version 1 .2 or later) 
with at least 250 Kbytes of user memory and one 
disc drive. Generated programs require 20 Kbytes 
for the run-time support package (if not shared) 
plus the program's code and data space. 
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Smile FORTRAN-77. Smile Pascal and the 
MIRAGE Operating System were written by 
Swifte Computer Systems Limited and are 
exclusively marketed worldwide by Sahara 
Software Limited. 
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